function clear_sel(adata_dir)
list=evalin('base','who');
adata_ind=find(ismember(list, 'adata_dir')==1);
list{adata_ind}={};
for und=1:length(list)
    if length(list{und})~=0
        evalin('base',['clear ' (list{und})]);
    end
end
